home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Wonky Flux Batch 2019 02
/
Wonky_Flux_Batch_2019-02.zip
/
Wonky Flux Batch 2019-02
/
112 - Unknown.dsk
/
SUPER.SCREEN.S
next >
Wrap
Text File
|
2019-02-21
|
17KB
|
397 lines
;===============================
;[: SUPER SCREEN :]
;===============================
;[: Written by Mike Delaney :]
;[: ATLANTIS BBS :]
;[: December 19,1987 :]
;===============================
;[:(614) 836-9629 NOT PCP'able:]
;===============================
public term3
public term4
begin
clear
set pa$=ram,8:set ph$=ram+8,12
when$=ram+20:flag=ram+22
nibble=ram+27:byte=ram+37
sc$=chr$(12)
start
modem(1):close
open #1,"a:data"
input #1,c1,c2,ct,ct$,da$
input #1,nu,mn,wm,tm\lu$\l2$\l3$\l4$\l5$
; ^^^^^^^^^^^^^^^^^LAST 5 CALLERS
close:open #1,"a:data1"
input #1,sn$\sys$\sv$
input #1,md$\s$\n$
; LG=(LOG.SYSTEM) FV=(FORCED VOTE) XF=(TRANSFERS UP/DN) MT=(MAT MANIA UP/DN)
; MT=(MAT MANIA UP/DN) SR=(SPUR UP/DN) GR=(NUMBER OF GRAPHIC LOGONS)
; SET ALL TO ZERO: LOG WILL BE ON, FORCED VOTE OFF, AND ALL OTHERS UP
input #1,lg,fv,xf,mt,sr,gr:close
open #1,"a:storage"
input #1,z1,z2
close
cn$=str$(c2)
if ct$=da$ goto start1
; THE CODE BELOW GENERATES HOW MUCH STORAGE IS ON THE DRIVES ONCE A DAY
lg$="b:":use "b:xtyp",lg$:x=peek(865)+peek(866)*256
y=peek(867)+peek(868)*256:z1=x-y
lg$="i:":use "b:xtyp",lg$:x=peek(865)+peek(866)*256
y=peek(867)+peek(868)*256:z2=x-y
create "a:storage":open #1, "a:storage":print #1,z1,z2:close
open #1,"b:stats":input #1,j1,j2,j3,j4,j5,j6,j7,j8:close
kill "b:stats":create "b:stats:close
open #1,"b:accesses":input #1,n1,n2,n3,n4:close
kill "b:accesses":create "b:accesses"close
if not j2 create "b:log.daily":close:goto start1
k2=(j2*10)/144:k3=j5+j6+j7+j8
if not k3 create "b:log.daily":close:goto start1
if j8 k8=(j8*100)/k3
if j7 k7=(j7*100)/k3
if j6 k6=(j6*100)/k3
if j5 k5=100-(k6+k7+k8)
if j4 k4=(j4*100)/k3
; create necessary files for ram and disk
kill "b:log.daily" create "b:log.daily"
open #1,"b:log.daily"
print #1,":=- -=:=- -=:=- -=:=- -=:=- -=:=- -=:=-";
print #1,"-=:=- -=:=- -=:=- -=:=- -=:=- -=:=- -=:"
print #1, " Atlantis Activity "ct$\
if (j7) or (j8) print #1, " 0300 Baud : "right$(" "+str$(j5),2)" -"right$(" "+str$(k5),3)"%"
print #1, "Online Time : "right$("0"+str$(j2/60),2)":"right$("0"+str$(j2 mod 60,2);
if (j7) or (j8) print #1, " 1200 Baud : "right$(" "+str$(j6),2)" -"right$(" "+str$(k6),3)"%";
if ((not(j7)) and (not(j8))) print #1, " 0300 Baud : "right$(" "+str$(j5),2)" -"right$(" "+str$(k5),3)"%";
print #1, " Todays Calls : "right$(" "+str$(ct-1),2)
print #1, "Activity : "right$(" "+str$(k2),3)"%";
if (j7) or (j8) print #1, " 2400 Baud : "right$(" "+str$(j7),2)" -"right$(" "+str$(k7),3)"%";
if ((not(j7)) and (not(j8))) print #1, " 1200 Baud : "right$(" "+str$(j6),2)" -"right$(" "+str$(k6),3)"%";
print #1," Bulletins : "right$(" "+str$(j3),2)
if (j8) print #1, " 9600 Baud : "right$(" "+str$(j8),2)" -"right$(" "+str$(k8),3)"%"
print #1,":=- -=:=- -=:=- -=:=- -=:=- -=:=- -=:=-";
print #1,"-=:=- -=:=- -=:=- -=:=- -=:=- -=:=- -=:"
print #1," "date$
print #1,"## Users Name Connected ";
print #1," Idle Online BP UL DL Baud"
print #1,"--- -------------------- --------- ";
print #1,"-------- ------ -- -- -- ----"
close
create "b:board.activity":open #1,"b:board.activity":append #1
print #1,"=======================================";
print #1,"======================================="
print #1, " Atlantis Activity "ct$\
if (j7) or (j8) print #1, " 0300 Baud : "right$(" "+str$(j5),2)" -"right$(" "+str$(k5),3)"%"
print #1, "Online Time : "right$("0"+str$(j2/60),2)":"right$("0"+str$(j2 mod 60,2);
if (j7) or (j8) print #1, " 1200 Baud : "right$(" "+str$(j6),2)" -"right$(" "+str$(k6),3)"%";
if ((not(j7)) and (not(j8))) print #1, " 0300 Baud : "right$(" "+str$(j5),2)" -"right$(" "+str$(k5),3)"%";
print #1, " Todays Calls : "right$(" "+str$(ct-1),2)
print #1, "Activity : "right$(" "+str$(k2),3)"%";
if (j7) or (j8) print #1, " 2400 Baud : "right$(" "+str$(j7),2)" -"right$(" "+str$(k7),3)"%";
if ((not(j7)) and (not(j8))) print #1, " 1200 Baud : "right$(" "+str$(j6),2)" -"right$(" "+str$(k6),3)"%";
print #1," Bulletins : "right$(" "+str$(j3),2)
if (j8) print #1, " 9600 Baud : "right$(" "+str$(j8),2)" -"right$(" "+str$(k8),3)"%"
print #1,":=- -=:=- -=:=- -=:=- -=:=- -=:=- -=:=-";
print #1,"-=:=- -=:=- -=:=- -=:=- -=:=- -=:=- -=:"
print #1,"Spur ---------: "right$(" "+str$(n1),3)" ";
print #1,"Mat Mania ----: "right$(" "+str$(n2),3)
print #1,"Trivia Master-: "right$(" "+str$(n3),3)" ";
print #1,"Transfers ----: "right$(" "+str$(n4),3)" ";
print #1,"Sysop Time ---: "right$(" "+str$(j1/60),2)":" right$("0"+str$(j1 mod 60),2)
print #1,"=======================================";
print #1,"======================================="
close
j1=0:j2=0:j3=0:j4=0:j5=0:j6=0:j7=0:j8=0
k1=0:k2=0:k3=0:k4=0:k5=0:k6=0:k7=0:ct=1:ct$=da$
open #1,"a:data"
print #1,c1,c2,ct,ct$,date$
print #1,nu,mn,wm,tm\a3$\l2$\l3$\l4$\l5$:close #1
start1
open #1,"b:stats"
input #1,l1,l2,l3,l4,l5,l6,l7,l8:close
if c1 cn$=str$(c1)+right$("000"+cn$,4)
text:home
; YOUR SYSTEM NAME IN THE MIDDLE OF THE SCREEN
x$=chr$(45,(len(sn$)+6))
px=(40-len(x$)/2)
print @px,1 x$
print @px,3 x$
x$="-={"+chr$(32,4)+sn$+chr$(32,4)+"}=-"
px=(40-len(x$)/2)
print @px,2 x$
r1$=right$(" "+str$(z1),5):r2$=right$(" "+str$(z2),5)
print @6,2 "Available D1"
print @10,3 left$(r1$,2)"."right$(r1$,1)
print @60,2 "Available D2"
print @64,3 left$(r2$,2)"."right$(r2$,1)
z1=0:z2=0:r1$="":r2$=""
; SENDS DOWN FOR THE DAY OF WEEK..WILL WORK FOR TIME MASTER H.O.
; TIMEMASTER MUST BE IN SLOT 4 FOR THIS TO BE CORRECT
gosub timemaster
x$=dw$+", "+mo$+" "+du$+yr$
px=(40-len(x$)/2)
print @px,5 x$
print @29,6 "Current -: "
print @29,7 "Reset ---: "time$
use "a:acos.time",39,5
a=clock(1)
print @2,9 "Next call ----: "right$(" "+str$(ct),5)
x$="New Users -----: "
print @30,9 x$ ;
open #1, "b:request":a=mark(1):close
if not a print "Yes";:else print " No"
print @56,9 "Local Logons -: "right$(" "+str$(l4),5)
print @2,10 "Total Calls --: "right$("0000"+cn$,5)
; THIS ROUTINE IS FOR EFTS PRO, AND WILL NOT WORK WITH ANOTHER TRANSFER
; PACKAGE. IF YOU ARE NOT USING EFTS.PRO, REMOVE THE CODE FOR IT.
; ------------------------------------
f$="d:xfer":open #1,f$:position #1,251,0:input #1,s0,s1,s8,s9,pv
close #1:open #1,f$+"1":position #1,50,1:input #1,u1,u2,u3,dl,ul,dh,di,uh,ui
close #1:a=s1-u1
; ------------------------------------
x$="New Uploads ---: "
print @30,10 x$;
if a print "Yes":else print " No"
print @56,10 "0300 Baud ----: "right$(" "+str$(l5),5)
print @2,11 "Total Users --: "right$(" "+str$(nu),5)
x$="E-Mail for Pete: "
print @30,11 x$;
ready "g:mail":if msg(1) print "Yes":else print " No"
print @56,11"1200 Baud ----: "right$(" "+str$(l6),5)
print @2,12 "Online Time --: "right$(" "+str$(l2/60),2)":" right$("0"+str$(l2 mod 60),2)" "
x$="E-Mail for Luck: "
print @30,12 x$;
ready "g:mail":if msg(2) print "Yes":else print " No"
print @56,12"Posts Today --: "right$(" "+str$(l3),5)
k3$=left$(time$,2):k3=val(k3$)*60
if ((val(k3$)=12) and (right$(time$,2)="PM")) goto start2
if ((val(k3$)=12) and (right$(time$,2)="AM")) k3=0
if right$(time$,2)="PM" k3=k3+720
start2
k4$=mid$(time$,4,2):k4=val(k4$)
k5=k3+k4
if k5 k5=k5/10:k6=(l2*10)/k5
print @2,13"% of Usage----: "right$(" "+str$(k6),5)
x=1:gosub rd.user:lr=byte(5)+byte(6)*256:a=mn-lr
x$="New Messages --: "
print @30,13 x$;right$(" "+str$(a),3)
l9=l5+l6+l7+l8
if l9 l9=l2/l9
print @56,13"Average Call -: "right$(" "+str$(l9/60),2)":" right$("0"+str$(l9 mod 60),2)"
print @9,15 "Status"
print @9,16 "------"
x$="Last Five Callers":px=(40-len(x$)/2)
print @px,15 x$
x$="-----------------"
print @px,16 x$
print @59,15"Daily Accesses"
print @59,16"--------------"
print @2,17 "Spur ---------: ";
if sr print " Down":else print " Up"
print @2,18 "Mat Mania ----: ";
if mt print " Down":else print " Up"
print @2,19 "Trivia master : ";
print " Up"
print @2,20 "Transfers ----: ";
if xf print " Down":else print " Up"
print @2,21 "System Log ---: ";
if lg print " No":else print " Yes"
px=(40-len(lu$)/2)
print @px,17 lu$
px=(40-len(l2$)/2)
print @px,18 l2$
px=(40-len(l3$)/2)
print @px,19 l3$
px=(40-len(l4$)/2)
print @px,20 l4$
px=(40-len(l5$)/2)
print @px,21 l5$
open #1,"b:accesses":input #1,n1,n2,n3,n4:close
print @56,17"Spur ---------: "right$(" "+str$(n1),5)
print @56,18"Mat Mania ----: "right$(" "+str$(n2),5)
print @56,19"Trivia Master-: "right$(" "+str$(n3),5)
print @56,20"Transfers ----: "right$(" "+str$(n4),5)
print @56,21"Sysop Time ---: "right$(" "+str$(l1/60),2)":" right$("0"+str$(l1 mod 60),2)
set z1$=2048,11:z1$=time$:modem(0):z2$=time$
home:clock(0):bb=0
q4=val(mid$(z2$,1,2)):q5=val(mid$(z2$,4,2))
q6=val(mid$(z2$, 7,2))
q1=val(mid$(z1$,1,2)):q2=val(mid$(z1$,4,2))
q3=val(mid$(z1$, 7,2))
if q6<q3 q5=q5-1
if q5<q2 q4=q4-1
q3=(q6-q3)+((q6<q3)*60)
q2=(q5-q2)+((q5<q2)*60)
q1=(q4-q1)+((q4<q1)*12)
q1$=right$("00"+str$(q1),2)
q2$=right$("00"+str$(q2),2)
q3$=right$("00"+str$(q3),2)
it$=q1$+":"+q2$+":"+q3$
d=0:on nocar goto start
tone(100,50):tone(125,50):tone(150,50):if info(2)>1 tone(125,50)
cm$=date$+" "+time$
i$="":if info(0) goto online
print @23"1) Auto Logon 2) Normal Logon"
print @23"3) System Logon 4) Logon as a user"\
print "Which ? ";:get i$
if (i$="1") or (i$="Y") then x=1:i$="":goto autolog
if (i$="3") or (i$="S") then x=1:i$="":d=19:goto autolog
if (i$<>"4") and (i$<>"U") goto online
input \"User number to log on as: " i$:x=val(i$):i$="":goto autolog
autolog
link "a:logon.seg","autolog"
online
link "a:logon.seg","online"
rd.user
open #1,"a:users"
position #1,128,x
input #1,d1$,d2$\d3$\d4$,d5$
position #1,128,x,70
read #1,ram,58
lc$=mid$(" "+when$,2)
close #1
return
timemaster
poke -16191,0:poke -16189,0:poke -16192,0:poke -16190,255
poke -16191,4:poke -16189,4
poke -16190,16
poke -16190,54:a = peek(-16192) - 240
poke -16190,47
if a=0 dw$="Sunday"
if a=1 dw$="Monday"
if a=2 dw$="Tuesday"
if a=3 dw$="Wednesday"
if a=4 dw$="Thursday"
if a=5 dw$="Friday"
if a=6 dw$="Saturday"
zs$=left$(date$,2)
if zs$="01" mo$="January"
if zs$="02" mo$="February"
if zs$="03" mo$="March"
if zs$="04" mo$="April"
if zs$="05" mo$="May"
if zs$="06" mo$="June"
if zs$="07" mo$="July"
if zs$="08" mo$="August"
if zs$="09" mo$="September"
if zs$="10" mo$="October"
if zs$="11" mo$="November"
if zs$="12" mo$="December"
du$=str$(val(mid$(date$,4,2)))
yr$=", 19"+mid$(date$,7,2)
x=val(left$(time$,2))
tm$=right$(time$,2)
if tm$="AM" x$="Morning":return
if ((tm$="PM") and (x <= 5)) x$="Afternoon":return
if ((tm$="PM") and (x = 12)) x$="Afternoon":return
x$="Evening"
return
term3
if not info(5) then ct=ct+1:c2=c2+1
; DOES NOT INCREMENT FOR LOCAL SYSOP CALLS ON CALL COUNT
if (info(5)) and (info(2)) ct=ct+1:c2=c2+1
if c2>9999 then c2=0:c1=c1+1
gosub five.5
print "Updating Data File..."
open #1,"a:data"
print #1,c1,c2,ct,ct$,date$
print #1,nu,mn,wm,tm\a3$\l2$\l3$\l4$\l5$:close #1
if ma ready "g:mail":kill #msg(un):update
if (info(5)) and (not info(2)) goto term4
if lg goto daily
print "Updating System Log..."
create "b:log.system":open #1,"b:log.system":append #1
print #1,cn$ "-"right$("0"+str$(ct-1),2)" ";
print #1,left$(cm$,8)" "mid$(cm$,10,5) right$(cm$,3)" ";
print #1,left$(time$,5) right$(time$,3)" ";
print #1,right$("000"+str$(info(2)*300),4)" ";
print #1,right$("00"+str$(a/60),3)":"right$("0"+str$(a mod 60),2)" ";
print #1,right$("00"+str$(un),3)" ";
print #1,a3$:close
; print daily log
daily
print "Updating Daily Log..."
mc=bp-mg:uc=ul-ug:dc=dl-dg
open #1,"b:log.daily":append #1
print #1,right$(" "+str$(ct-1),2)"] ";
print #1,left$(a3$+"......................",20)" ";
print #1,mid$(cm$,10,5)" "right$(cm$,3)" ";
print #1,it$" ";
print #1,right$("000"+str$(a/60),3)":"right$("0"+str$(a mod 60),2)" ";
print #1,right$("00"+str$(mc),2)" ";
print #1,right$("00"+str$(uc),2)" ";
print #1,right$("00"+str$(dc),2)" ";
print #1,right$("000"+str$(info(2)*300),4)
close
term4
print "Updating Stats File..."
a=clock(1):j0=bp-mg
j9=a/60:if a mod 60>30 j9=j9+1
create "b:stats":close
open #1,"b:stats":input #1,j1,j2,j3,j4,j5,j6,j7,j8:close
if ((info(5)) and (not info(2))) j1=j9+j1:else j2=j9+j2
j3=j3+j0
if info(2)=0 j4=j4+1
if info(2)=1 j5=j5+1
if info(2)=4 j6=j6+1
if info(2)=8 j7=j7+1
if info(2)=32 j8=j8+1
open #1,"b:stats":print #1,j1,j2,j3,j4,j5,j6,j7,j8:close
print "Updating Accesses..."
create "b:accesses":close
open #1,"b:accesses":input #1,n1,n2,n3,n4:close
n1=n1+m1:n2=n2+m2:n3=n3+m3:n4=n4+m4
open #1,"b:accesses":print #1,n1,n2,n3,n4:close
goto begin
five.5
l5$=l4$:l4$=l3$:l3$=l2$:l2$=lu$:return
#1,128,x
input #1,d1$,d2$\d3$\d4$,d5$
position #1,128,x,70
read #1,ram,58
lc$=mid$(" "+when$,2)
close #1
return
timemaster